home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / savg / state.bas < prev    next >
Encoding:
BASIC Source File  |  1995-01-09  |  699 b   |  31 lines
  1. Option Explicit
  2. '--------------------------------------------------
  3. ' STATE.BAS
  4. '--------------------------------------------------
  5.  
  6. ' Maximum number of object we're tracking
  7. Global Const MAX_OBJECTS = 3
  8. ' Actual number of objects we're tracking
  9. Global Const NUM_OBJECTS = 3
  10.  
  11. ' structure that holds a single x-y coordinate
  12. Type tPoint
  13.     X As Integer
  14.     Y As Integer
  15. End Type
  16.  
  17. ' structure that holds information about a single game object.
  18. Type tObject
  19.     Pos As tPoint
  20.     BorderStyle As Integer
  21. End Type
  22.  
  23. ' structure that holds information about a single player's
  24. ' game state.
  25. Type tState
  26.     Object(0 To MAX_OBJECTS) As tObject
  27.     TextData As String
  28. End Type
  29.  
  30.  
  31.